﻿Imports System.Data.SqlClient

Module Conecciones
    Public Function CadenaConexion_SQL() As String
        Dim csb As New SqlConnectionStringBuilder
        csb.DataSource = "(local)\SQLEXPRESS" ''POR DEFECTO EL NOMBRE DEL SERVIDOR ES SQLEXPRESS
        csb.InitialCatalog = "SG_COMANDERSQL"   ''NOMBRE DE LA BASE DE DATOS INICIAL A CONSULTAR
        csb.IntegratedSecurity = True
        Return csb.ConnectionString
    End Function
    Public Function CadenaConeccion_MYSQL() As String
        Dim con As New SqlConnectionStringBuilder

        Return con.ConnectionString
    End Function

End Module
